Option Explicit
Sub B_Sample041()
    Dim myWb As Workbook
    Dim myWd As Window
    Set myWb = Workbooks(1)@@				'Nï
    Set myWd = myWb.Windows(1)
    With myWd
        MsgBox .FreezePanes				'LTw
        MsgBox .Panes.Count				'Paneƶq
        MsgBox .Panes(1).VisibleRange.Address	'ܩ󥪤WPane
'xsd򪺦}
    End With
    Set myWd = Nothing					'
    Set myWb = Nothing
End Sub
